# Purpose: Produce some figures related to the direction of Syrian->German friending

source("constants.R")

# See the README for instructions on how to access this data
migrant_friending <- read_csv("input/friendship_initiation_input.csv")

write_csv(migrant_friending, "output/crosscutting_friendship_origins.csv")